home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL7.PRO < prev    next >
Encoding:
Prolog Source  |  1979-12-31  |  429 b   |  15 lines
  1.             /* Program 7 */
  2. predicates
  3.        reference(symbol,symbol)
  4. goal
  5.        clearwindow,
  6.        write("Please type a name :"),
  7.        readln(The_Name),
  8.        reference(The_Name,Phone_No),
  9.        write("The phone number is ",Phone_No).
  10. clauses
  11.        reference("Albert", "01-123456").
  12.        reference("Betty",  "01-569767").
  13.        reference("Carol",  "01-267400").
  14.        reference("Dorothy","01-191051").
  15.